home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
T-TPUG Old Monthly Disks
/
(c)tp.d64
/
trek theme.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-11
|
11KB
|
270 lines
100 REM WRITTEN APRIL 23,1984
102 REM DARREN BOYD
104 REM BOX 522
106 REM NELSON, B.C.
108 REM V1L 5R3
110 REM D.B. PRODUCTIONS
120 POKE53280,11:POKE53281,0:PRINT""
130 PRINT"[147]"
140 PRINT""TAB(15)"THEME FROM"
150 PRINT""TAB(15)"[159]STAR TREK"
160 PRINT""TAB(11)"THE MOTION PICTURE"
170 PRINT""TAB(11)"BY JERRY GOLDSMITH"
180 FORI=54272TO54296:POKEI,0:NEXTI
190 FORPA=1TO500:NEXTPA
200 L1=54272:L2=54279:L3=54286
210 H1=L1+1:H2=L2+1:H3=L3+1
220 V1=L1+4:V2=L2+4:V3=L3+4
230 POKE 54296,15
240 POKE V1+1,063:POKE V1+2,003
250 POKE V2+1,063:POKE V2+2,001
260 POKE V3+1,063:POKE V3+2,001
270 T=TI
280 POKEV1,W1:POKEV2,W2:POKEV3,W3
290 READ S:IF S=0 GOTO 380
300 S=S/2
310 READ X1,Y1,X2,Y2,X3,Y3,W1,W2,W3
320 IF X1 THEN POKE H1,X1:POKE L1,Y1:POKE V1,33
330 IF X2 THEN POKE H2,X2:POKE L2,Y2:POKE V2,33
340 IF X3 THEN POKE H3,X3:POKE L3,Y3:POKE V3,33
350 T=T+S
360 IF T>TI GOTO 360
370 GOTO 280
380 FORPA=1TO500:NEXTPA
390 FORJ=L1 TO 54296:POKE J,0:NEXT J
400 GOTO60000
410 DATA020,016,195,014,024,011,048,33,32,32:REM M 01
420 DATA020,016,195,014,024,011,048,33,32,32
430 DATA020,016,195,014,024,011,048,33,32,32
440 DATA020,016,195,014,024,011,048,33,32,32
450 DATA020,022,096,000,000,000,000,32,32,32
460 DATA020,028,049,000,000,000,000,32,32,32
470 DATA020,025,030,015,210,012,143,33,32,32:REM M 02
480 DATA020,025,030,015,210,012,143,33,32,32
490 DATA020,025,030,015,210,012,143,33,32,32
500 DATA020,025,030,015,210,012,143,33,32,32
510 DATA020,022,096,000,000,000,000,32,32,32
520 DATA020,037,162,000,000,000,000,32,32,32
530 DATA020,033,135,022,096,014,024,33,32,32:REM M 03
540 DATA020,033,135,022,096,014,024,33,32,32
550 DATA020,033,135,022,096,014,024,33,32,32
560 DATA020,033,135,022,096,014,024,33,32,32
570 DATA020,033,135,022,096,014,024,33,32,32
580 DATA020,033,135,022,096,014,024,33,32,32
590 DATA020,033,135,021,031,012,143,32,32,32:REM M 04
600 DATA020,019,239,000,000,000,000,32,32,32
610 DATA020,029,223,000,000,000,000,32,32,32
620 DATA020,033,135,000,000,000,000,32,32,32
630 DATA020,037,162,000,000,000,000,32,32,32
640 DATA020,029,223,000,000,000,000,32,32,32
650 DATA060,033,135,028,049,011,048,32,32,32:REM M 05
660 DATA060,029,223,025,030,012,143,32,32,32
670 DATA060,028,049,022,096,014,024,33,32,32:REM M 06
680 DATA020,028,049,022,096,014,024,32,32,32
690 DATA020,022,096,022,096,014,024,32,32,32
700 DATA020,028,049,022,096,014,024,32,32,96
710 DATA020,025,030,021,031,012,143,33,32,32:REM M 07
720 DATA020,025,030,000,000,000,000,33,32,32
730 DATA020,025,030,021,031,012,143,33,32,32
740 DATA020,025,030,018,209,012,143,33,32,32
750 DATA020,025,030,018,209,012,143,33,32,32
760 DATA020,025,030,018,209,012,143,33,32,32
770 DATA020,025,030,022,096,012,143,33,32,32:REM M 08
780 DATA020,025,030,022,096,012,143,33,32,32
790 DATA020,025,030,022,096,012,143,33,32,32
800 DATA020,025,030,018,209,011,048,33,32,32
810 DATA020,025,030,018,209,011,048,33,32,32
820 DATA020,025,030,018,209,011,048,33,32,32
830 DATA020,016,195,014,024,011,048,33,32,32:REM M 09
840 DATA020,016,195,014,024,011,048,33,32,32
850 DATA020,016,195,014,024,011,048,33,32,32
860 DATA020,016,195,014,024,011,048,33,32,32
870 DATA020,022,096,000,000,000,000,32,32,32
880 DATA020,028,049,000,000,000,000,32,32,32
890 DATA020,025,030,019,239,012,143,33,32,32:REM M 10
900 DATA020,025,030,019,239,012,143,33,32,32
910 DATA020,025,030,019,239,012,143,33,32,32
920 DATA020,025,030,019,239,012,143,33,32,32
930 DATA020,021,031,000,000,000,000,32,32,32
940 DATA020,037,162,000,000,000,000,32,32,32
950 DATA020,033,135,022,096,014,024,33,32,32:REM M 11
960 DATA020,033,135,022,096,014,024,33,32,32
970 DATA020,033,135,022,096,014,024,33,32,32
980 DATA020,033,135,022,096,014,024,33,32,32
990 DATA020,033,135,022,096,014,024,33,32,32
1000 DATA020,033,135,022,096,014,024,33,32,32
1010 DATA020,033,135,022,096,012,143,32,32,32:REM M 12
1020 DATA020,019,239,000,000,000,000,32,32,32
1030 DATA020,029,223,000,000,000,000,32,32,32
1040 DATA020,033,135,000,000,000,000,32,32,32
1050 DATA020,037,162,000,000,000,000,32,32,32
1060 DATA020,029,223,000,000,000,000,32,32,32
1070 DATA060,033,135,028,049,011,048,32,32,32:REM M 13
1080 DATA060,029,223,025,030,012,143,32,32,32
1090 DATA080,028,049,022,096,014,024,32,32,32:REM M 14
1100 DATA020,028,049,022,096,014,024,32,32,32
1110 DATA020,022,096,022,096,014,024,32,32,32
1120 DATA020,025,030,021,031,012,143,33,32,32:REM M 15
1130 DATA020,025,030,000,000,000,000,33,32,32
1140 DATA020,025,030,021,031,012,143,33,32,32
1150 DATA020,025,030,021,031,012,143,33,32,32
1160 DATA020,025,030,021,031,012,143,33,32,32
1170 DATA020,025,030,021,031,012,143,33,32,32
1180 DATA020,025,030,021,031,012,143,33,32,32:REM M 16
1190 DATA020,025,030,021,031,012,143,33,32,32
1200 DATA020,025,030,021,031,012,143,33,32,32
1210 DATA020,025,030,021,031,012,143,33,32,32
1220 DATA020,025,030,000,000,000,000,32,32,32
1230 DATA020,037,162,000,000,000,000,32,32,32
1240 DATA020,042,062,035,134,014,024,33,33,32:REM M 17
1250 DATA020,042,062,035,134,000,000,33,33,32
1260 DATA020,042,062,035,134,000,000,33,33,32
1270 DATA020,042,062,035,134,000,000,33,33,32
1280 DATA020,021,031,000,000,000,000,32,32,32
1290 DATA020,035,134,028,049,011,218,33,33,32:REM M 18
1300 DATA020,035,134,028,049,000,000,33,33,32
1310 DATA020,035,134,028,049,000,000,33,33,32
1320 DATA020,035,134,028,049,000,000,33,33,32
1330 DATA020,028,049,000,000,000,000,32,32,32
1340 DATA020,047,107,000,000,000,000,32,32,32
1350 DATA020,042,062,035,134,014,024,33,33,32:REM M 19
1360 DATA060,042,062,035,134,000,000,33,32,32
1370 DATA020,021,031,000,000,000,000,32,32,32
1380 DATA020,035,134,028,049,011,218,33,33,32:REM M 20
1390 DATA020,035,134,028,049,000,000,33,33,32
1400 DATA020,035,134,028,049,000,000,33,32,32
1410 DATA060,035,135,028,049,011,218,32,32,32
1420 DATA060,042,062,035,134,014,024,32,32,32:REM M 21
1430 DATA060,047,107,035,134,011,218,32,32,32
1440 DATA060,050,060,042,062,010,143,32,32,32:REM M 22
1450 DATA060,047,107,037,162,011,218,32,32,32
1460 DATA020,042,062,035,134,014,024,32,32,32:REM M 23
1470 DATA020,028,049,000,000,000,000,32,32,32
1480 DATA020,042,062,000,000,000,000,32,32,32
1490 DATA060,037,162,031,165,014,024,33,33,33
1500 DATA100,037,162,031,165,014,024,33,33,33:REM M 24
1510 DATA010,037,162,031,165,014,024,33,32,32
1520 DATA010,037,162,031,165,014,024,32,32,32
1530 DATA020,037,162,029,223,014,239,33,33,32:REM M 25
1540 DATA060,037,162,029,223,000,000,32,32,32
1550 DATA020,018,209,000,000,000,000,32,32,32
1560 DATA020,029,223,000,000,000,000,32,32,32
1570 DATA020,033,135,025,030,014,239,33,33,32:REM M 26
1580 DATA060,033,135,025,030,000,000,32,32,32
1590 DATA020,025,030,000,000,000,000,32,32,32
1600 DATA020,042,062,000,000,000,000,32,32,32
1610 DATA020,037,162,029,223,014,239,32,32,32:REM M 27
1620 DATA020,018,209,000,000,000,000,32,32,32
1630 DATA020,029,223,000,000,000,000,32,32,32
1640 DATA060,033,135,025,030,014,239,33,33,33
1650 DATA060,033,135,025,030,014,239,33,32,32:REM M 28
1660 DATA060,025,030,025,030,014,239,32,32,32
1670 DATA060,037,162,029,223,014,239,32,32,32:REM M 29
1680 DATA060,042,062,033,135,012,143,32,32,32
1690 DATA060,044,193,035,134,011,048,32,32,32:REM M 30
1700 DATA060,039,223,033,135,013,078,32,32,32
1710 DATA020,039,223,029,223,014,239,32,32,32:REM M 31
1720 DATA020,037,162,000,000,000,000,32,32,32
1730 DATA020,029,223,000,000,000,000,32,32,32
1740 DATA060,033,135,025,030,016,195,33,33,33
1750 DATA020,033,135,025,030,016,195,33,33,32:REM M 32
1760 DATA040,033,135,025,030,000,000,33,32,32
1770 DATA060,025,030,025,030,016,195,32,32,32
1780 DATA020,016,195,014,024,011,048,33,32,32:REM M 33
1790 DATA020,016,195,014,024,011,048,33,32,32
1800 DATA020,016,195,014,024,011,048,33,32,32
1810 DATA020,016,195,014,024,011,048,33,32,32
1820 DATA020,022,096,000,000,000,000,32,32,32
1830 DATA020,028,049,000,000,000,000,32,32,32
1840 DATA020,025,030,015,210,012,143,33,32,32:REM M 34
1850 DATA020,025,030,015,210,012,143,33,32,32
1860 DATA020,025,030,015,210,012,143,33,32,32
1870 DATA020,025,030,015,210,012,143,33,32,32
1880 DATA020,022,096,000,000,000,000,32,32,32
1890 DATA020,037,162,000,000,000,000,32,32,32
1900 DATA020,033,135,022,096,014,024,33,32,32:REM M 35
1910 DATA020,033,135,022,096,014,024,33,32,32
1920 DATA020,033,135,022,096,014,024,33,32,32
1930 DATA020,033,135,022,096,014,024,33,32,32
1940 DATA020,033,135,022,096,014,024,33,32,32
1950 DATA020,033,135,022,096,014,024,33,32,32
1960 DATA020,033,135,021,031,012,143,32,32,32:REM M 36
1970 DATA020,019,239,000,000,000,000,32,32,32
1980 DATA020,029,223,000,000,000,000,32,32,32
1990 DATA020,033,135,000,000,000,000,32,32,32
2000 DATA020,037,162,000,000,000,000,32,32,32
2010 DATA020,029,223,000,000,000,000,32,32,32
2020 DATA060,033,135,028,049,011,048,32,32,32:REM M 37
2030 DATA060,029,223,025,030,012,143,32,32,32
2040 DATA060,028,049,022,096,014,024,33,32,32:REM M 38
2050 DATA020,028,049,022,096,014,024,32,32,32
2060 DATA020,022,096,022,096,014,024,32,32,32
2070 DATA020,028,049,022,096,014,024,32,32,96
2080 DATA020,025,030,000,000,000,000,33,32,32
2090 DATA020,025,030,021,031,012,143,33,32,32
2100 DATA020,025,030,018,209,012,143,33,32,32
2110 DATA020,025,030,018,209,012,143,33,32,32
2120 DATA020,025,030,018,209,012,143,33,32,32
2130 DATA020,025,030,022,096,012,143,33,32,32:REM M 40
2140 DATA020,025,030,022,096,012,143,33,32,32
2150 DATA020,025,030,022,096,012,143,33,32,32
2160 DATA020,025,030,018,209,011,048,33,32,32
2170 DATA020,025,030,018,209,011,048,33,32,32
2180 DATA020,025,030,018,209,011,048,33,32,32
2190 DATA020,016,195,014,024,011,048,33,32,32:REM M 41
2200 DATA020,016,195,014,024,011,048,33,32,32
2210 DATA020,016,195,014,024,011,048,33,32,32
2220 DATA020,016,195,014,024,011,048,33,32,32
2230 DATA020,022,096,000,000,000,000,32,32,32
2240 DATA020,028,049,000,000,000,000,32,32,32
2250 DATA020,025,030,019,239,012,143,33,32,32:REM M 42
2260 DATA020,025,030,019,239,012,143,33,32,32
2270 DATA020,025,030,019,239,012,143,33,32,32
2280 DATA020,025,030,019,239,012,143,33,32,32
2290 DATA020,021,031,000,000,000,000,32,32,32
2300 DATA020,037,162,000,000,000,000,32,32,32
2310 DATA020,033,135,022,096,014,024,33,32,32:REM M 43
2320 DATA020,033,135,022,096,014,024,33,32,32
2330 DATA020,033,135,022,096,014,024,33,32,32
2340 DATA020,033,135,022,096,014,024,33,32,32
2350 DATA020,033,135,022,096,014,024,33,32,32
2360 DATA020,033,135,022,096,014,024,33,32,32
2370 DATA020,033,135,022,096,012,143,32,32,32:REM M 44
2380 DATA020,019,239,000,000,000,000,32,32,32
2390 DATA020,029,223,000,000,000,000,32,32,32
2400 DATA020,033,135,000,000,000,000,32,32,32
2410 DATA020,037,162,000,000,000,000,32,32,32
2420 DATA020,029,223,000,000,000,000,32,32,32
2430 DATA060,033,135,028,049,011,048,32,32,32:REM M 45
2440 DATA060,037,162,028,049,009,104,32,32,32
2450 DATA060,039,223,033,135,008,097,32,32,32:REM M 46
2460 DATA060,035,134,029,223,008,225,32,32,32
2470 DATA080,044,193,035,134,013,078,33,32,32:REM M 47
2480 DATA020,044,193,035,134,013,078,33,32,32
2490 DATA020,044,193,035,134,013,078,33,32,32
2500 DATA040,044,193,035,134,009,247,32,32,32:REM M 48
2510 DATA040,039,223,000,000,000,000,32,32,32
2520 DATA040,035,134,000,000,000,000,32,32,32
2530 DATA020,044,193,033,135,011,048,33,32,32:REM M 49
2540 DATA020,044,193,000,000,000,000,33,32,32
2550 DATA020,044,193,033,135,011,048,33,32,32
2560 DATA020,044,193,033,135,011,048,33,32,32
2570 DATA020,044,193,033,135,011,048,33,32,32
2580 DATA020,044,193,033,135,011,048,33,32,32
2590 DATA060,044,193,033,135,011,048,33,32,32:REM M 50
2600 DATA020,044,193,022,096,011,048,33,32,32
2610 DATA020,044,193,022,096,011,048,33,32,32
2620 DATA020,044,193,022,096,011,048,33,32,32
2630 DATA020,044,193,022,096,011,048,32,32,32:REM M 51
2640 DATA000
60000 PRINT"[147]":POKE53280,254:POKE53281,246:PRINTCHR$(9):PRINTCHR$(142)
60010 PRINT" PRODUCED IN 1984"
60020 PRINT" D.B. PRODUCTIONS[154]"
60030 I=55795:J=55796:L=55875:M=55876
60040 FORK=1TO20
60050 FORPA=1TO150:NEXT
60060 POKEI,12:POKEJ,12:POKEL,1:POKEM,1
60070 I=I-1:J=J+1:L=L-1:M=M+1
60080 NEXTK
60090 END